home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / rechteck zeichne (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  670b  |  23 lines
  1. 40197 rem ***************************
  2. 40198 rem * hires-rechteck zeichnen *
  3. 40199 rem ***************************
  4. 40200 if x1<0 or x1>319 or x2<0 or x2>319 then return
  5. 40210 if y1<0 or y1>199 or y2<0 or y2>199 then return
  6. 40220 adresse=49821:rem ** startadresse fuer hires-linie **
  7. 40230 gosub 40350:return
  8. 40297 rem ***************************
  9. 40298 rem * multi-rechteck zeichnen *
  10. 40299 rem ***************************
  11. 40300 if x1<0 or x1>159 or x2<0 or x2>159 then return
  12. 40310 if y1<0 or]y1>199 or y2<0 or y2>199 then return
  13. 40320 adresse=49828:rem ** startadresse fuer multi-linie **
  14. 40330 gosub 40350:return
  15. 40335 rem
  16. 40340 rem *** rechteck zeichnen ***
  17. 40345 rem
  18. 40350 sys adresse,x1,y1,x2,y1,f
  19. 40355 sys adresse,x2,y1,x2,y2,f
  20. 40360 sys adresse,x2,y2,x1,y2,f
  21. 40365 sys adresse,x1,y2,x1,y1,f
  22. 40370 return
  23.